home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / docs / mags / AUoH_Feb95.lha / mdg / RequestTest < prev   
Encoding:
Text File  |  1995-02-13  |  290 b   |  23 lines
  1. ;
  2. ;    $VER: RequestTest 1.0 (10.1.95)
  3. ;
  4. failat 11
  5.  
  6. Request "Click one" title "Hello, World!" gadgets "A|B|C|D|E|F|G|H|I|J|K"
  7.  
  8. set choice $rc
  9.  
  10. if $choice eq 0
  11.     echo "Last button"
  12. endif
  13.  
  14. if $choice eq 1
  15.     echo "First button"
  16. endif
  17.  
  18. if val $choice ge 2
  19.     echo "Button" $choice
  20. endif
  21.  
  22. unset choice
  23.